#/usr/local/perl
system("find -name \'*.cpp\' > result.txt");
open(IF1, "+<result.txt");
while(<IF1>){
    chomp;
    $Filename = "$_";
#    $Filename = "./blast_example/alias/alias1.c.log";
    $Command1 = "cat " . $Filename . " | grep 'SUPPORT' ";
#    $Command2 = "cat " . $Filename . " | grep 'support' ";
    print "$Filename\n";
    #print "$Command1\n";
    #print "$Command2\n";
    system($Command1);
#    system($Command2);
    #open(IF2, "<$Filename")|| die "Can't open file $filename : $!\n" ;
    
    #while(<IF2>){
        #print "$_";
        #if(/SUPPORT/){ print "===NOT SUPPORT===\n"; }
    #}
}
#system("find -name \'*.error\' > result2.txt");
#open(IF2, "+<result2.txt");
#while(<IF2>){
#    chomp;
#    $Filename2 = "$_";
#    $Command3 = "cat " . $Filename2 . " | grep 'ERROR' ";
#    print "$Filename2\n";
#    system($Command3);
#}
